;:sys36864
	;.opt oo
	*= $c000
anfg	=2162+14
sg	=123
posi	=820
nepp	=2075
	jmp begin
	jmp goto
start	.word 555,1
	.byt 158
	.byte "2061:"
	.byt 143,34
	ldx #end-nep-1
nepl	lda nepp,x
	sta posi,x
	dex
	bpl nepl
	jmp posi
nep	lda #<anfg
	ldy #>anfg
	sta 2
	sty 3
d1	lda #1
	sta 4
d2	lda #1
	sta 5
l1	ldy #1
	dey
	lda 4
d3	cmp #1
	bne l2
	lda 5
d4	cmp #1
	bne l2
d5	jmp 257
	brk
	.word 556,2
	.byt 143,34
l2	lda (2),y
	bne l6
	lda 2
	clc
	adc #7
	sta 2
	bcc l2
	inc 3
	bne l2
l6	cmp #sg
	bne l8
	inc 2
	bne l7
	inc 3
l7	lda (2),y
	cmp #sg
	beq l8
	lda #1
	eor #1
l8	sta (4),y
l9	inc 2
	bne l3
	inc 3
l3	inc 4
	bne l1
	inc 5
	bne l1
	brk
	.word 557,3
	.byt 143,34
end	=*
begin	lda #<wie
	ldy #>wie
	jmp $ab1e
wie	.byte "\x93sys 49155,startadr.,endadr.+1,anz/zeile"
	.byt 13,13
	.byte "nikolaus heusler, 10.8.90, version 1"
	.byt 13,13,0
zt	.byt 13
	.byte "achtung: start- und endadressen duerfen"
	.byt 13
	.byte "keine nullbytes enthalten!"
	.byt 13,13,0
goto	jsr $aefd
	jsr 44426
	jsr 47095
	sty d1+1
	sta d2+1
	sty d5+1
	sta d5+2
	sty 2
	sta 3
	tax
	beq zer
	tya
	bne zok
zer	lda #<zt
	ldy #>zt
	jsr $ab1e
	jmp $b248
zok	jsr $aefd
	jsr 44426
	jsr 47095
	sty d3+1
	sta d4+1
	tax
	beq zer
	tya
	beq zer
	jsr $b7f1
	stx az+1
	ldx #end-start-1
lp1	lda start,x
	sta 2049,x
	dex
	bpl lp1
	lda #3
	sta 6
	lda #<anfg
	ldy #>anfg
	sta 4
	sty 5
	ldx #0
d	ldy #0
	lda 2
	cmp 20
	bne qwet
	lda 3
	cmp 21
	beq e1
qwet	jmp wet
e1	lda #0
	tay
	sta (4),y
	inc 4
	bne e2
	inc 5
e2	sta (4),y
	inc 4
	bne e3
	inc 5
e3	sta (4),y
	inc 4
	bne e4
	inc 5
e4	lda #1
	ldy #8
	sta 43
	sty 44
	lda 4
	sta 45
	lda 5
	sta 46
	lda #<ok
	ldy #>ok
	jmp $ab1e
ok	.byt 13
	.byte "\x11ok. fertiges produkt nicht veraendern"
	.byt 13
	.byte "oder starten, sondern mit save ab-"
	.byt 13
	.byte "speichern."
	.byt 13,13,0
wet	lda (2),y
	bne o5
	lda #sg
	sta (4),y
	inx
	inc 4
	bne o1
	inc 5
o1	lda #1
	sta (4),y
	bne o6
o5	cmp #sg
	bne o3
	sta (4),y
	inx
	inc 4
	bne o3
	inc 5
o3	sta (4),y
o6	inc 4
	bne o7
	inc 5
o7	inc 2
	bne o8
	inc 3
o8	inx
az	cpx #1
	bcc m7
	ldx #0
	inc 6
	lda #0
	sta (4),y
	inc 4
	bne m1
	inc 5
m1	lda #1
	sta (4),y
	inc 4
	bne m2
	inc 5
m2	lda #1
	sta (4),y
	inc 4
	bne m3
	inc 5
m3	lda 6
	sta (4),y
	inc 4
	bne m4
	inc 5
m4	lda #0
	sta (4),y
	inc 4
	bne m5
	inc 5
m5	lda #143
	sta (4),y
	inc 4
	bne m6
	inc 5
m6	lda #34
	sta (4),y
	inc 4
	bne m7
	inc 5
m7	jmp d